home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr53
/
pctv4n_1.zip
/
PLAYERIN.TXT
< prev
next >
Wrap
Text File
|
1993-06-10
|
963b
|
36 lines
' Listing 3 - PlayerIn.Frm
Dim LevelText(1 To 3) As String
Sub LevelButton_Click (Index As Integer)
NewValue% = LevelButton(Index).Value
Players(Index + 1).Level = NewValue%
LevelButton(Index).Caption = "Difficulty Level: " + LevelText$(NewValue%)
End Sub
Sub OkButton_Click ()
For i% = 1 To 2
Players(i%).Name = PlayerName(i% - 1).Text
Players(i%).Score = 0
Next i%
PlayerInfoForm.Hide
End Sub
Sub Form_Load ()
LevelText$(1) = "Beginner"
LevelText$(2) = "Intermediate"
LevelText$(3) = "Advanced"
For i% = 1 To 2
PlayerName(i% - 1).Text = Players(i%).Name
LevelButton(i% - 1).Value = Players(i%).Level
LevelButton(i% - 1).Caption = LevelText$(Players(i%).Level)
Next i%
End Sub
Sub PlayerName_KeyPress (Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
OkButton.SpecialOp = 1
KeyAscii = 0
End If
End Sub